home *** CD-ROM | disk | FTP | other *** search
/ Gigarom 1 / Gigarom Macintosh Archives (Quantum Leap)(CDRM1080320)(1993).iso / FILES / DEM / N-R / Photone Prepress 2.04.cpt / Photone Prepress™v.2.04D.rsrc / STR#_2.txt < prev    next >
Text File  |  1993-03-18  |  323b  |  15 lines
  1. {    2 { 1 add 2 div 3 mul dup floor sub 2 mul 1 sub exch } repeat
  2.     dup mul exch dup mul add 1.0 exch sub } 
  3.  
  4. {2 mul abs exch dup mul add 3 div 2 mul 1 exch sub} 
  5.  
  6. {abs exch abs 2 copy gt{exch}if pop} 
  7.  
  8. {dup mul exch dup mul add 1.0 exch sub} 
  9.  
  10. currentscreen 
  11. dup type (dicttype) eq 
  12. {/SpotFunction get} if
  13. 3 1 roll pop pop 
  14.  
  15.